home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
MOVIES.DIR
/
00054_Script_buildMovieButtons
< prev
next >
Wrap
Text File
|
1995-11-15
|
1KB
|
25 lines
on buildMovieButtons
global gMovieButtons
if voidP(gMovieButtons) then
set gMovieButtons to [:]
addProp gMovieButtons, 2, tB(2,"MLARGE.PIC","MLARGER.PIC","MLARGEP.PIC","large")
addProp gMovieButtons, 3, tB(3,"MSMALL.PIC","MSMALLR.PIC","MSMALLP.PIC","small")
addProp gMovieButtons, 4, tB(4,"MSHOWC.PIC","MSHOWCR.PIC","MSHOWCP.PIC","controller")
addProp gMovieButtons, 5, tB(5,"MT.PIC","MTR.PIC","MTP.PIC","retraceLocal")
addProp gMovieButtons,6, tB(6,"MCC.PIC","MCR.PIC","MCP.PIC","doContentsLocal")
addProp gMovieButtons, 7, tB(7,"ML.PIC","MLR.PIC","MLP.PIC","prevMovie")
addProp gMovieButtons, 8, tB(8,"MR.PIC","MRR.PIC","MRP.PIC","nextMovie")
addProp gMovieButtons, 9, tB(9,"MVISIT.PIC","MVISITR.PIC","MVISITP.PIC","visit")
addProp gMovieButtons, 10, tB(10,"MCONTM.PIC","MCONTMR.PIC","MCONTP.PIC","continue")
addProp gMovieButtons, 11, tB(11,"QDbox","QDbox","QDbox","playMovie")
addProp gMovieButtons, 12, qt(12)
end if
end buildMovieButtons
on tB c,n,r,p,sc
return birth(script "bt",c, n,r,p,sc)
end tB
on qt c
return birth(script "qt",c)
end qt